COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	REQUIRE "DPYSUB[HAL,HE]" LOAD_MODULE
C00008 ENDMK
C⊗;
REQUIRE "DPYSUB[HAL,HE]" LOAD_MODULE;
REDEFINE PICTURE="SAFE INTEGER ARRAY";
EXTERNAL INTEGER PROCEDURE MKSCALE(INTEGER X0,Y0;REAL DX,DY,NUMDIST;INTEGER I0,IM;
		STRING UNITS);
EXTERNAL INTEGER PROCEDURE ARRGRF(INTEGER ARRAY A;INTEGER I0,IM,X0,Y0,NX,NY;STRING XUNIT,YUNIT);
EXTERNAL INTEGER PROCEDURE ARRGRAF
  (INTEGER ARRAY A;INTEGER I0,IM,X0,Y0,NX,NY;STRING XUNIT,YUNIT;INTEGER MIN,MAX);
EXTERNAL PROCEDURE MKARC2(REAL X,Y,XC,YC,ANG,DANG);
EXTERNAL PROCEDURE MKARC5(REAL XC,YC,ANG,DANG);
EXTERNAL PROCEDURE MKARC1(REAL X,Y,DIR,RADIUS,ANG,DANG);
EXTERNAL PROCEDURE MKARC3(REAL DIR,RADIUS,ANG,DANG);
EXTERNAL PROCEDURE MKCIRCLE(REAL RADIUS,XC,YC;INTEGER RES);
EXTERNAL PROCEDURE MKCIR2(REAL RADIUS;INTEGER RES);
EXTERNAL PROCEDURE DPYSTR(INTEGER X,Y;STRING STR);
EXTERNAL PROCEDURE TXTBLK(STRING S;INTEGER X,Y,WID,NLINES);
EXTERNAL PROCEDURE COMLST(STRING COMS);
EXTERNAL PROCEDURE CALCOMP(STRING FILE;INTEGER ARRAY BUFFER);
EXTERNAL PROCEDURE III2DD(INTEGER ARRAY DPYBUF);
EXTERNAL PROCEDURE DDOVER(PICTURE PIC;INTEGER ARRAY DPYBUF;INTEGER NX,NY,L);
EXTERNAL PROCEDURE DPYFIX;
REQUIRE "DISPLY[HAL,HE]" LOAD_MODULE;
COMMENT Declarations for display functions;
EXTERNAL INTEGER DPYX,DPYY,OPTFLG;
EXTERNAL PROCEDURE RVECT(INTEGER X,Y);
EXTERNAL PROCEDURE RIVECT(INTEGER X,Y);
EXTERNAL PROCEDURE RPT(INTEGER X,Y);
EXTERNAL PROCEDURE RPOINT(INTEGER X,Y);
EXTERNAL PROCEDURE AIVECT(INTEGER X,Y);
EXTERNAL PROCEDURE AVECT(INTEGER X,Y);
EXTERNAL PROCEDURE APT(INTEGER X,Y);
EXTERNAL PROCEDURE APOINT(INTEGER X,Y);
EXTERNAL PROCEDURE GVECT(INTEGER X,Y,OP,SIZ,BRT);
EXTERNAL INTEGER PROCEDURE AVECW(INTEGER X,Y);
EXTERNAL INTEGER PROCEDURE AIVECW(INTEGER X,Y);
EXTERNAL INTEGER PROCEDURE APOINW(INTEGER X,Y);
EXTERNAL INTEGER PROCEDURE RVECW(INTEGER X,Y);
EXTERNAL INTEGER PROCEDURE RPOINW(INTEGER X,Y);
EXTERNAL INTEGER PROCEDURE GVECW(INTEGER X,Y,OP,SIZ,BRT);
EXTERNAL PROCEDURE DPYSET(INTEGER ARRAY BUF);
EXTERNAL INTEGER PROCEDURE DPYPARS;
EXTERNAL PROCEDURE DPYRESET(INTEGER BUF);
EXTERNAL INTEGER PROCEDURE GETPOG;
EXTERNAL PROCEDURE RELPOG(INTEGER POG);
EXTERNAL PROCEDURE CLRBFR;
EXTERNAL PROCEDURE HYDPOG(INTEGER POG);
EXTERNAL PROCEDURE DPYOUT(INTEGER POG);
EXTERNAL PROCEDURE TYPLOC(INTEGER P1,P2);
EXTERNAL PROCEDURE DPYTYP(INTEGER POS,JMPS,LINSPERJUMP);
EXTERNAL INTEGER RELFLG;COMMENT RELATIVE VECTOR OPTIMIZATION FLAG;
EXTERNAL PROCEDURE PGSEL(INTEGER POG);
EXTERNAL PROCEDURE UPGMVM(INTEGER VAL;REFERENCE INTEGER ADR);
EXTERNAL INTEGER PROCEDURE UPGMVE(REFERENCE INTEGER ADR);
EXTERNAL PROCEDURE DPYCLR;
EXTERNAL PROCEDURE DPYBIG(INTEGER SIZE);
EXTERNAL PROCEDURE DPYBRT(INTEGER BRT);
EXTERNAL PROCEDURE DPYSST(STRING S);
EXTERNAL INTEGER DPYPTR;
EXTERNAL INTEGER PROCEDURE DPYTST;
EXTERNAL PROCEDURE ACPOGS(INTEGER MASK);
EXTERNAL PROCEDURE ACCPOG(INTEGER POG);
EXTERNAL PROCEDURE DACPOG(INTEGER POG);
EXTERNAL INTEGER POGON;
REQUIRE "DDLIB[HAL,HE]" LOAD_MODULE;
DEFINE DDSIZX=512,DDSIZY=480;

EXTERNAL SIMPLE PROCEDURE DDOUT(INTEGER ARRAY DDBUF);
EXTERNAL INTEGER DDCHAN,OVERLAY;
EXTERNAL SIMPLE PROCEDURE DDFIX(INTEGER CHAN;INTEGER ARRAY DDBUF;INTEGER C0,L0,LL,SIZLX);
EXTERNAL PROCEDURE DDCLR;
EXTERNAL PROCEDURE DDSTR(STRING STR;INTEGER X0,Y0,PICWID,NLINES,CHAN);
EXTERNAL PROCEDURE DDSTRS(STRING ARRAY STR;INTEGER X0,Y0,PICWID,NLINES,CHAN);
EXTERNAL PROCEDURE DDREST;
REQUIRE DDREST INITIALIZATION;
EXTERNAL INTEGER GFSIZX,GFSIZY,GFSIZL,SCALX,SCALY,XCENT,YCENT,LMAR,RMAR,YBOT,CHSCAL;
EXTERNAL REAL CHASP;
EXTERNAL PROCEDURE IIISUB(INTEGER ARRAY DPYBUF;INTEGER DDCHAN);
EXTERNAL PROCEDURE IIICVT(INTEGER ARRAY DPYBUF);